home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
fortran
/
fckdemo1.zip
/
SUBCROSS.LST
< prev
next >
Wrap
File List
|
1994-04-12
|
3KB
|
112 lines
FORCHECK PC V11.10 MS5 compiler emulation 03-Nov-93 11:29:11 page: 1
FCKDEM.FOR /OB/RI
1 PROGRAM FCKDEM
2 C================================================================
3 C
4 C this is a FORTRAN-77 demonstration program
5 C to show FORCHECK output
6 C
7 C================================================================
8 C
9 PARAMETER (LUN=1)
10 C
11 COMMON /COM/ NAME1
12 C INCLUDE 'FCKDEM.INC'
13 COMMON/COM1/K
14 INTEGER IAR(10)
15 EQUIVALENCE (NAME,NAME1)
16 CHARACTER*1 NAME(6), NAME1*6
17 C
18 DATA L1/1/, LABEL/1000/
19 C
20 C================================================================
21 C
22 DO 10 I = 1, 6
23 NAME(I) = ' '
24 10 CONTINUE
25 NAME(7) = ' '
26 C
7
**[116 E] subscript out of range
27 L = A + FUN(1.)
A
**[115 E] no value assigned to this item
A + FUN(1.)
**[355 I] implicit conversion to less accurate data type
28 CALL FCKSUB (NAME, IAR, 2)
29 C
30 WRITE(LUN,LABEL), 'European Software'
LABEL
**[112 E] no statement label assigned to this variable
LABEL
**[357 W] obsolescent Fortran 90 feature
, 'European Software
**[198 W] "," not allowed
31 READ *,I
32 1000 FORMAT(A)
33 C
34 END
FORCHECK PC V11.10 FCKDEM 03-Nov-93 11:29:11 page: 2
FCKDEM.FOR /OB/RI
ENTRY TYPE NARG LINE
FCKDEM P 1
LABEL TYPE LINES
10 L 22 24#
1000 F 32#
1000
**[110 I] unreferenced
CONSTANT TYPE LINES
LUN I*4 9# 30
VARIABLE TYPE RANK OPERATIONS LINES
A R*4 R 27
I I*4 IL R 22# 23 31#
IAR I*4 1 S 14 28
K I*4 C* 13
L I*4 A 27#
L1 I*4 D 18#
LABEL I*4 D R 18# 30
NAME CH*1 1 C Q A S 15 16 23# 25# 28
NAME1 CH*6 C Q 11 15 16
A
**[109 E] not defined
L
**[110 I] unreferenced
L1
**[110 I] unreferenced
LABEL
**[112 E] no statement label assigned to this variable
SUBPROGRAM TYPE NARG OPERATIONS LINES
FCKSUB S 3 28
FUN R*4 F 1 R 27
COMMON_BLOCK TYPE LENGTH OPERATIONS
/COM/ CH 6 C Q A S
/COM1/ N 4 C*
/COM1/
**[110 I] unreferenced
UNIT_IDENTIFIER ACCESS OPERATIONS LINES
LUN S F W 30